perm filename INFX[M11,LCS] blob sn#435746 filedate 1980-01-16 generic text, type T, neo UTF8
SRT=12800;
INS 0 1;<   INSTRUMENT 1 
FM
FM2
;
OSC P4 P2 B4 P5 ;
SUB P8 P7 B3;
MLT FP9 B3 B3;  
OSC B3 P2 B3 P10;<RAMP
MLT FP9 P7 B5;<P7 IS 1ST M.I., P8 = 2ND
AD2 B5 B3 B3;  
OSC B3 FP9 B3 F1 ;<MODULATOR, P6 CONVTS AS FREQ.(MOD. FREQ.)   
AD2 FP3 B3 B3;<ADD IN CENTER FREQ.  
NOS B4 B3 B4 F1 ; < A NOSCIL
OUT B4 B1;END;<         ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!  
GEN 0 1 2  .01 0   1 25   
1 400  0 511;< F2 GEN INPUT MUST ALWAYS START NEW LINE!  
GEN 0 2 1  1 1;<F1 , 1 HARMONIC  SINE WAVE
GEN 0 1 3  0 0  1 511;<F3 PUTS LINE FROM 0 TO 1 IN 511 STEPS   
 
  < IN6  .SCR  --  RANDOM NUMBER=     1
 PLAY;
FM    0.00   .5   C/2  ,-1600.0   F2 0   0  30 C/2 F3;
FINI;